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A New Look? 


The cover and a few of the inside pages of this issue look a 
little different, don’t they? Well, our offices were 
burglarized last night, and the Spinwriter we use for 
newsletter printing was damaged. The thieves also made off 
with three complete computer systems and a load of software. 
They even got the Track Ball I used for the article in this 
issue! See page ? for more details. 


65C@2 Note 


Don Lancaster just called to report that he has gotten his 
hands on samples of the GTE Gé6éS5SC@2 processor. It does drop 
right into his Apple //e, and runs just fine! Note that this 
is the GTE version, which does not have the instructions to 
set, reset, and test single bits. Those are in the Rockwel! 
chip, which still hasn’t shown up. We’1l] Keep passing on 
whatever we hear. 


Spiral Screen CROAK iii 55 46s 6 SL DS SSS RODGEr Keatin 
modified and documented by Bob Sander-Ceder lo 


[ Roger is the author of numerous excellent war games for the 
Apple, some published by Strategic Simulations. Titles include 
Southern Command, Operation Apocalypse, Germany 1985, and Rapid 
Deployment Force. He is also director for Australasia of the 
International Apple Core. A previous version of this program 
was published in the newsletter of one of:the Australian Apple 
user groups. ] 


The following program demonstrates an innovative method for 
Clearing the Apple text or lo-res graphics screen. Rather than 
just switching to instant blackness, it makes the process 
visually interesting. 


The entire screen is viewed as one long coiled line. For 55 
seconds this line unwinds on the screen, with blanks being fed 
into the center and visible characters shifting out at the 


bottom left corner. Here is a simplified diagram, on a 
10-column 6-line screen: 


Ivl<« tl «te l<« te t<el< i ¢< i< ft 0 
Ivivic<«l<«t<«tl<et<et<t<«< i 7 til 
Ivivivictl<«l«e tect <ct* i712 
Ivivivil>olrmotrotot* +> 17 13 
4 
5 


There are a total of 60 characters. By calling 60 times a 
routine which rotates the spiral, and inserting a blank at line 
3 column 3 after each rotation, I can blank' out the entire 60 
characters. The <, >, V, and ~ symbols show the direction each 
character cell will move during the rotation. The "x" in line 
5 column 0 is shifted out to never-never land. (In the old 
days, we said it went into the “bit bucket".) 


Well, that is the general idea. But I did it for the whole 
24x40 screen, a little too much to show in this small space. 


Here is a description of the highest level of the spiral clear 
program, in a language a little like BASIC: 


FOR VCNT = 1 TO 24 
FOR HCNT = 1 TO 40 
ROTATE SCREEN 
STORE BLANK AT TRAIL'S END 
NEXT HCNT 
NEXT VCNT 
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S-C Macro Assembler (the best there 16!) ....scccvvcasccccssssssece e SG0.08 
S-C Macro Assembler Version 1.1 Update... . cc ccnccccccvanenccccce re PI 2.00 


s-C Cross Reference Utility. cccccscccasereesncercecsseeserccceese ce OL0.08 
S-C Cross Reference Utility with Complete Source Code....... cece ee -$08 08 


S-C Word ProcesSSOr .ccasncnscaccccccccccseeseeeescencccescecccese ce oe HIG L88 
As is, with fully commented source code. Needs S-C Macro Assembler. 
Applesoft Source Code on Disk. .w.ccncccccvncvscsccesessesesecsceses se SIO.88 

Very heavily commented. Requires Applesoft and S-C Assembler. 
ES-CAPE: Extended S-C Applesoft Program Editor......cccrcrccccsaes e S68.68 


RAL Quarterly DS SUS bsora See oats Ok BS WS SEE ewe ee eee ewe bowers ee aen $15.66 
Each disk contains al! the source code from three issues of "Apple 
Assembly Line", to save you lots of typing and testing time. 


QD#1: Oct-Dec 1986 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981! QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QO#7: Apr-Jun 1982 QD#S: Jul-Sep 1982 QD89: Oct-Dec 1982 


QD#18: Jan-Mar 1983 QD#11: Apr-Jun 1983 

Double Precision Floating Point for Applesoft..cccsccsccrcccrerese . SIG.08 
Provides 2i-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer Research) ....c.cceusccscccsers $79.08 
Source Code for FLASH! Runtime PacKage....cecccccccrceesscccesssce sts oO 
Full Screen Editor for S-C Macro Assembler (Laumer Research).......$49.08 


The Visible Computer: 65@2 (Software Masters).......(reg. $58.86) $45.86 
Super Disk Copy III (Sensible Software)............-.4reg. $30.00) %27.68 
Amper-Magic (Anthro-Digital) ..c.ccccnnccccencceccvser(FeQ. $75.88) $67.58 
Amper-Magic Volume 2 ‘Anthro-Digital)>..........2.-..(reg. $35.68) $36.00 
Quick-Trace CAnthro-Digital) ....ceccccccnscccceeceeeKf@Q. $56.66) $45.66 


DISASM Dis-Assembler CRAK-Ware) ..c.cccccvcccncccccsccscccasccccc sce eo SH 30.08 


Blank Diskettes (with hub rings)....ccesecee2e..--pacKkage of 26 for $56.66 
Small 3-ring binder with 186 vinyl disk pages and disks.......22.2..+.%36.00 
Vinyl disk pages, 6"x8.5"°, hold one disk each....cceccceneee 18 for $6.06 
Reload your own NEC PC-8@23 ribbon cartridges.......-..-each ribbon $5.60 
Reload your own NEC Spinwriter Multi-Strike Film cartridges....each $2.56 
Diskette Mailing Protectors... ccccccccsccascccnceese1B-PPs 48 cents each 

168 or more: 25 cents each 
ZIF Game Socket Extender... .cccaccccccccaccscencccscscssasscccesaeeteG.08 
Ashby Shift—Key Mod... .cccccccncccnencensccsccce scenes cccsccesecse sc sHl1de OG 
Lower-Case Display Encoder ROM... .cccnccscccacncccnccccnacssccnvcvesHede OO 

Only Revision level 7 or later Apples. 


STB-128 128K RAM Card (STB Systems) .....ccccsccccevsee el H39F7.08) $350.60 
Grapplert+ Printer Interface (Orange Micro) .....-cc+++.e($175.806) $158.00 
Bufferboard 16K Buffer for Grappler (Orange Micro).....¢(%175.86) %1506.06 
Buffered Grappler+ NEW!!! Interface and 16K Buffer.....(%$239.60) %200.66 


Books, Books, BooKs....ccccccsccccccssesseeee Compare our discount prices! 


"The Apple If Circuit Description’, Gayler......c.cee(S22.99) $21.08 
"Enhancing Your Apple II, vol. 1", Lancaster.........($17.95) $17.06 
"Incredible Secret Money Machine", Lancaster.......2+ 067.995) $7.58 
"Micro Cookbook, vol. 1°, Lancaster... .cccccessseeee(Hl15.95) $15.68 
“Beneath Apple DOS", Worth & Lechner....ccccsnccese es (H$19.9D) $18.66 
"Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.68 
"Apple Graphics & Arcade Game Design”, Stanton.......(%$19.95) €18.88 
"Assembly Lines: The Book", Roger Wagner.......02+.2-+(%19.95) $18.66 
"What’s Where in the Apple", Second Edition..........($24.95) $23.06 
"What’s Where Guide" Cupdates first edition) ..........(89.95) $9.66 
"6582 Assembly Language Programming", Leventhal......($16.99) $16.00 
"6562 Subroutines", Leventhal... .ccccccssnccccccevses(SI5.99) $15.86 


Add $1 per book for US postage. 


¥¥X¥ S-C SOFTWARE, P. O. BOX 2880308, Dallas, TX 75228 Xxx 
RX (214) 324-2650 ERX 
X¥X We take Master Charge, VISA and American Express XXX 


Foreign orders add postage needed. 
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The use of two loops is not necessary, because the loop 
variables are not used at all inside the loops. We could just 
as well write it like this: 


FOR CNT = 1 TO 960 
ROTATE SCREEN 
STORE BLANK 

NEXT CNT 


However, thinking ahead to the assembly language 
implementation, we know that counters are easier to manage if 
they have values less than 256. Therefore I like the first 
version better. Furthermore, counters in assembly language are 
frequently easier to work with if they count backwards. I 
ended up with the code in lines 1130-1270 of the program. 


The value "$628+12" in line 1210 happens to be the memory 
address of the inner end of the spiral. I figured it out on 
paper, tried it, corrected my figuring, and tried it again. 


You can add some cute wrinkles here and there. Like putting a 
“pause if key pressed" routine right after calls to 
ROTATE.SCREEN. Like storing something besides a blank. Like 
feeding the character from the bottom left corner into line 12 
column 12, so that the original text is restored. Like varying 
the character stored during the 960 rotations. Like using a 
color value in lo-res graphics mode. I tried a lot of these, 
and it is amazing how much you can learn this way. 


The rotation process involves four separate steps: sliding a 
column on the left side down, slipping an upper row to the 
left, shoving a column on the right side up, and scooting a 
lower row to the right. Appealing once again to a higher level 
language, it might look like this: 


XL=0 : XR=39 
YT=0 : YB=23 
WHILE YT<YB 
SLIDE COLUMN XL DOWN 
SLIP ROW YT LEFT 
SHOVE COLUMN XR UP 
SCOOT ROW YB RIGHT 
ADJUST XL, XR, YT, YB 
LOOP 


It turns out it is not quite that simple, but almost. The 
assembly language is in lines 1300-1530. 


The initial call to DOWN at line 1390 moves the leftmost column 
of characters down, ignoring the bottom left cell. If that 
cell were not ignored, it would slide to some undetermined 
place in memory, not necessarily even on the screen. Where it 
goes depends on what method is used to compute screen addresses 
from line number. Anyway, it would try to go to a 25th line, 
which does not exist. 
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AL ESTATE C0 TAXES 1) STOCK MARKET (] INVENTORIES YEATH/ZENITH 89 8" 
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APPLE () EAGLE C1 IBM, PC CL) NORTHSTAR LC) TRS-80 11 8” L] OSBORNE C) FRANKLIN (] STANDARD CP/M 8” 


RENT SOFTWARE 
3EFORE YOU BUY 


from our 


SOFTWARE 
RENTAL LIBRARY 


You can now RENT the most popular software available for just 
20-25% * of Manufacturers’ Retail Price 
e Eliminate the risk—rent first! 


© 100% of rental fee applies toward purchase 


e All purchases are 20% Off of Manufacturer's 
Suggested List 
e Rentals are for 7-days (plus 3 days grace for return 


shipping) 
SPECIAL INTRODUCTORY OFFER 


There are now 2 different plans to choose from: 


4 


Join the Game Group, $25.00 per year 
and rent as many games as you like for 
only 20-25% of Mfrs. Sugg. Retail Price* 


Minimum order, 3 game rentals 


Join the Business Group, $50.00 per 
year and rent as many Ousiness applica 
tion programs as you like for only 
90-25% of Mfrs. Sugg. Retail Price* 


REMEMBER, THESE ARE NOT DEMOS, BUT ORIGINAL 
UNRESTRICTED SOFTWARE PROGRAMS 
(complete with manuals in original manufacturers’ packages) 
To Immediately Order, or for more information: 


UNITED COMPUTER CORP Toll Free CALL 1-800 992-7777 
Software Rental Library In California CALL 1-800 992-8888 


; In L.A. County CALL 1- 213 823- 4400 
Culver Cty, California Canadian Orders Welcome I AMERICAN | |" 


VISA 
EDUCATIONAL 0 ACCOUNTS RECEIVABLE (] WORD PROCESSORS) DATA BASES(] LANGUAGES (] GRAPHICS 


EXPRESS | serrem| 


¥39031 TWY3aN3D © T1OvAWd C TVLN30 2 TVW5IG3W 2 S133HS GV3udS CF] ONILNNODOV OC SS3NISNE LF) SFILITILN CF SYITIAWOD FD SAWVD C038 XOUIX 
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It turns out that if BASCALC in the monitor ROM is used, the 
character is moved into $478, which is not pare of the screen. 
It is usually a safe location, but some peripheral boards or 
DOS might use it. If you don't care about saving $478, or if 
you use a different method which leads to a completely safe 
address for the 25th line, you could omit lines 1390-1400. 


I still need to show you the routines DOWN, LEFT, UP, and 
RIGHT. Here they are in pseudo-code: 


DOWN: FOR Y = YB-1l TO YT STEP -1l 
S(XL,Y+1) = S(XL,Y) 
NEXT Y 


LEFT: FOR X = XL+l1 TO XR 
NEXT X 


UP: FOR Y = YT+1 TO YB 
NEXT Y 


RIGHT: FOR X = XR-1 TO XL STEP -1 
S(X+1,YB) = S(X,YB) 
NEXT X 


The assembly language is in lines 1550-2240. 


Each of these routines needs a function to compute the base 
address of a line on the screen. I called the subroutine 
MAKE.BASE, and implemented it in two different ways. The 
easiest way is to call on the subroutine BASCALC at SFBCl] in 
the monitor ROM. 


BASCALC accepts the line number (0-23) in the A-register, 
computes the base address by a series of shift and masking 
operations, and puts the beginning address of the line into $28 
and $29. No other registers are used, so it is a nice 
subroutine to have available. (Its only problem is that it 
takes a full 40 microseconds to do the job.) Since I call 
MAKE.BASE with the line number in the X-register, it can be 
written like lines 2310-2320. 


The faster way to get a base address loaded is to use a table 
of addresses. I put the high byte of each base address in a 

| 24-byte table, and the low byte in another. The line number in 
the X-register indexes this table. MAKE.BASE is in lnes 
2340-2380, and the table in lines 2400-2450. 


The table lookup is about twice as fast as BASCALC's 40 
microseconds. Since MAKE.BASE is called once each for LEFT and 
RIGHT, and twice for each character moved for UP and DOWN, and 
the whole set is called 960 times, the overall effect is large. 
Using BASCALC the total time to clear the screen is 55 seconds; 
with the table lookup it is 40 seconds. On the other hand, the 
table and the code to read it take up 59 bytes, while the call 
to BASCALC takes only 4 bytes. 
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1000. Saceeee ease eese ese ceo os 

10.19 @ SPIRAL CLEAR BY ROGER KEATING 
0000- 1030 HCNT «EQ. $00 
0001- 1040 VCNT [EQ $01 
BR Bs 
0005- 1070 YT .EQ $0 
0005- 1080 YB -EQ $0 
0028- 1090 BASE .EQ $2 

1110 . .OR $800 

1130 SPIRAL. CLEAR 
oeoet Be oy tee we oe 
O804- AD 28 =: 1160.1 LDA #40 FOR 40 COLUMNS 
0806- 85 00 1170 STA HCNT 
0808- 20 19 08 1190 .2 JSR ROTATE.SCREEN 
O80B- AO A 1200 LDA ; 0 STORE BLANK IN 
O80D- 8D 34 06 1210 STA $628+12 MIDDLE OF SCREEN 
ee an nn + od 
Si ss ot 3B ier mar ven 
0818- 60 1270 RTS _ FINISHED! 

1590 ® 

1300 ROTATE.SCREEN 
0819- 49 00 1319 LD 
081B- 85 02 ~=«- 1320 STA XL LEFT END 
081D- 85 O4 1330 STA YT TOP 
O81F- A917 += 1340 LDA #23 
oe a Re 
0825- 85 03 1379 STA XR RIGHT END 
0827- 20 47 08 1390 JSR DOW START LEFT SIDE 
082C- 20 47 08 1420 .1 JSR DOWN SLIDE LEFT SIDE DOWN 
O82F- C6 05 1430 DEC YB MOVE BOTTOM UP 
0831- 20 77 08 1440 .2 JSR LEFT SLIP TOP LINE LEFT 
O834- E6 02 1450 INC XL MOVE LEFT EDGE IN 
0836- 20 5F 08 1460 JSR UP SHOVE RIGHT SIDE UP 
0839- E6 Ok 1470 INC YT MOVE TOP DOWN 
083B- 20 8A 08 1480 JSR RIGHT | SCOOT BOTTOM LINE RIGHT 
O83E- C6 0 1490 DEC XR MOVE RIGHT EDGE IN 
Gpaoe C2 of eae CHE YB 
O844- 90 E 1520 BCC 41 IF YT<YB, BRANCH 
0846- 60 1530 RTS FINISHED’ 

1560 @teseccceetoeeceeeeeuescneocesces 

1560 # MOVE LEFT SIDE DOWN 

1570 # FOR Y=YB~1 TO YT STEP ~1 

15 0 : SCXL, Y+1)=S(XL,Y) : NEXT 
O847- A4% 02 1200 DOWN LDY XL COLUMN BEING MOVED DOWN 
0819 - AG 05 1610 LDx YB BOTTOM CELL IN COLUMN 
oBie= 6) 28° 1820 ba NEES 
0851- ug 1650 PHA ’” SAVE CHAR IN CELL 
Bisa gg 9 08 16i gE Marna 
SBI BL #9 Coase 
O85A- EX 04 1710 CPX YT AT TOP OF COLUMN YET? 
O85C- DO ED ~—'1720 BNE . NO 
O85E- 60 1730 : RTS 

1750 ® MOVE RIGHT SIDE UP 

1760 # FOR Y=YT+1 TO YB 

1770 # S(XR, Y-1)=S(XR,Y) : NEXT 

17 0 4 Caccccne ra nacnaconnaccanaoncoanonaae 
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O85F- A4 0 1790 UP 
O0861- A6 ol 1830 
0863- E8 1810 .1 
0864- 20 9D 08 1820 
0867- Bi 28 ee 
0869- 48 1840 
O86A- CA 1850 
O86B- 20 9D 08 1860 
O86E- 68 1870 
O86F- 91 28 1880 
O871- E Leas 
O872=- EX 05 1900 
O874- DO ED 1336 
0876- 60 1920 
Ba 
i 
1960 * 
130 nd 
O877=- A6 O04 1980 LEFT 
0879 20 9D 08 1990 
087C- A4 02 2000 
O87E- C8 2010 .1 
O87F- B1 28 2020 
0881- 88 2030 
0882- 91 28 2040 
O884- C8 2050 
0885- C# 03 2060 
O887- DO F5 2070 
0889- 60 2080 
2090 # 
2100 # 
2110 *® 
2120 ® 
QO # 


peace 20 9D 08 2150 


XR COLUMN BEING MOVED UP 


X YT TOP CELL IN COLUMN 


MAKE. BASE 

(BASE ) ,Y 
SAVE CHAR IN CELL 
BACK UP 

MAKE. BASE 

(BASE) ,Y 


MOVE TOP nets oo 
R X=XL+1 


FO 
S(X-1 


X YT 
MAKE. BASE 
XL 


YT )=S(X, YT) >: NEXT 
TOP LINE 


(BASE ) ,Y 
(BASE ),Y 
XR a COLUMN YET? 


SORT a LINE RIGHT 


-1 TO XL STEP eae 


R X=X 
SChel, YB) ast, YB) : 


(X) 


O88F- Ak 03 2160 
0892- Bi 28 2180 
O894- C8 2190 
0895- 91 28 2200 
0897- 88 2210 
0898- CH 02 2220 
O89A- DO F5 2230 
089C- 60 2240 
2250 
2260 # 
2270 ® 
2280 # 
2290 # 
2300 MAKE. BASE 
2310 
2320 ®# 
2330 


O89D- BD A8 08 2340 
O8A2= BD CO 08 2 60 


O8AT=- 60 0 
2390 # 

O8A8- O4 O4 O 

O8AB- 05 06 0 

OSAE= O7 O7 2400 HI 

O8BO- O04 O04 02 

O8B3- 05 06 0 

O8B6~ 07 0 2410 

O8BB8- O4 04 05 

O8BB- 05 06 06 

O8BE- 07 07 2420 

O8CO- 00 80 o0 

08C3- 80 00 80 

O8C6- 00 80 2430 LO 
- 28 AB 28 


HS 


YB 
MAKE. BASE 
XR 


BOTTOM LINE 


(BASE ),Y¥ 
(BASE ),¥ 


XL FIRST COLUMN YET? 
1 NO 


POINT BASE TO SCREEN LINE 
LINE # 


ALTERNATE APPROACH 
$FBC 1 USING BASCALC IN ROM 


HI,X FAST APROACH USING 
BASE + 1 TABLE LOOKUP 


0404050506060707 
0404050506060707 
0404050506060707 
0080008000800080 
28 A828A828A828A8 


50D050D050D050D0 
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YB ah BOTTOM OF COLUMN YET? 


Breaking and Entering... ..cccaccsnccccccnscessssesssBill Morgan 


We had a burglary here last night (today is May 26). Thieves 

got into the building somehow, and broke through the doors of 

several businesses, including your favorite software house and 
newsletter publisher. 


They got three complete computer systems, including a two day 
old Apple //e that belonged to Judy Preston ‘(she handles your 
orders), and an Apple /// system on loan from Apple Computer! 


Just in case somebody tries to sell any of you some used Apple 
equipment, here’s the list of what we lost, including serial 
numbers where Known: 


Apple Jf Plus Computer 14998251 
STB 16K RAM Card 

Epson Printer Card 

Apple High-Speed Serial Card 

Wico Track Ball w/Interface 

Apple Disk Controller 


2 Apple Disk Drives 414611 & % 
Epson MX-8@ Printer 
NEC Green Monitor 1315572 


R-H Super Fan II 


Apple //e Computer 152413 
Extended 8@-Column Card 

Apple Disk Controller 

Apple Disk Drive 

Leedex B/W Monitor Viedes-100 8040449 


Apple /// Computer 4567 
Apple /// Monitor 002073 
Apple Silentype Printer 319 O27 
Aprle Disk W 18)S 7 


TI Programmer Calculator (LCD Display) 


If you do see any of the above items, call your local police 
and/for S-C Software. Try to find out the name and address of 
the person selling the goods. 


The thieves also took who-Knows-how-many disks (at least three 
Flip-Files, two library cases, and many loose ones), containing 
the text and code from about the last three newsletters, al! 
the disks from the Apple /// project Cincluding the source code 
for the new assembler), several projects-in-progress, and 
whatever was handy. It will probably be months until we Know 
what all is gone. 


As I mentioned on the front page, the Spinwriter was damaged. 
They apparently got about half way down the hall carrying the 
printer, and then dropped it onto the concrete floor! We don’t 
yet Know what will be necessary to repair it. 


Anyway, we’re all alive and well, and we’re going to carry on. 
See you next month! 
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Quick TRACE 


relocatable program traces and displays the actual machine operations, while it is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
ltions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE is 
alive. 


QUICK TRACE is a beautiful way to show the 


incredibly complex sequence of operations that 
a computer goes through in executing a program 


QulGKTRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 
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See these programs at participating Computerland and other 
fine computer stores 


Anthro - Digital Software, Inc. 
P.O. Box 1385 Pittsfield, MA 01202 
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Dear Assembly Line, 


I hope you can answer a question I have concerning 
assembly language. I am just a beginner. 


How can I convert hex numbers to decimal from within a 
running machine language program? That is, take bytes 
from locations A and At+l, convert the bytes to their 
decimal equivalent, and store the resulting ASCII bytes 
in other memory locations. 


As a new member of A.P.P.L.E., I called their technical 
assistance line. They advised me to call Don Williams, 
who in turn directed me to Val Golding, editor of Call 

APPLE magazine. Val referred me to old issues of Call 

APPLE and Apple Orchard which I don't have available. 


This appears to be a sticky question that nobody wants to 
deal with. There are a million ways to do this from 
BASIC, but I have yet to see one that will do it strictly 
within machine language. 


(signed) 
I. M. Perplexed 
Anaheim, California 


Dear Mr. Perplexed, 


Your odyssey in search of a conversion program sounds as 
frustrating as it probably was! Let me assure you no one 
is trying to avoid dealing with these kinds of programs. 


It is just that there are hundreds of variations. And 
many of them have been printed during the past five or 
six years in Micro, Nibble, Call APPLE, Apple Orchard, 
Kilobaud, Byte, and hundreds of Apple user group 
newsletters. All or most back issues of the major 
magazines are available through anthology volumes such as 
The Nibble Express, The Best of Micro, and Peeking at 
Call APPLE. 


Also, almost all of the books written to teach 6502 
assembly language programming include as examples 
subroutines to convert from binary to decimal and decimal 
to binary. We especially recommend Roger Wagner's 
“Assembly Lines--The Book™ and Lance Leventhal's "6502 
Subroutines". In fact, we even sell both of them at a 
Slight discount. 


I don't want to send you away looking for yet another 
source of information, so here is a routine I have used. 


The subroutine assumes that you have placed the binary 
value into a variable called BINARY.VALUE, and places the 
converted result into DECIMAL.VALUE as a series of five 
ASCII characters. After conversion, the value in 
BINARY.VALUE will be zeroed. 
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This particular version of conversion produces leading 
zeroes for values below 10000. Variations I have used 
substitute leading blanks, or left justify with trailing 
blanks, or return a left justified value with a digit 
count. 


The general method involves subtracting 10000 as many 
times aS possible, and counting the times to get the 
first digit; subtracting 1000 from the remainder as many 
times as possible and counting the times to get the next 
digit; and so on. To simplify indexing, the constants l, 
10, 100, 1000, and 10000 are stored with the low-order 
bytes in one table, and the high-order bytes in another. 


Line 1060 sets the Y-register to zero, for use as a 
pointer to the byte positions in DECIMAL.VALUE. If you 
were storing into a line buffer, you might enter th 
routine with the Y-register pointing to the starting 
place in the line and skip this initialization step. 


Line 1070 sets X=4, which is one less than the number of 
digits you want to convert. xX=4 gives five digits; if 
you are sure the value of the decimal number will be 
smaller, you can set X for fewer digits and enter past 
this point. 


The loop from line 1090 through 1290 develops each digit 
in turn. Line 1090 starts a new digit by loading an 
ASCII zero. This value is pushed onto the stack during 
the subtraction that follows. Each time a subtraction is 
successful, it will be pulled off, incremented, and then 
pushed back on. 


Lines 1120-1170 subtract the current divisor without 
storing the difference back into BINARY.VALUE. If the 
difference is positive, it is stored and the digit 
incremented. If the result is negative, then that was 
one subtraction too many, so the difference is discarded 
and the digit is retrieved from the stack at line 1250. 


Line 1260 stores the converted digit into DECIMAL.VALUE, 
and line 1270 advances the digit pointer. Line 1280 
advances the divisor pointer. If there are more 
divisors, line 1290 branches back to convert the next 
lower digit. 


I have used a form of this subroutine inside the S-C 
Macro Assembler. That version includes options to also 
print the decimal value as it is being converted. 
Different entry conditions control whether the number 
will be printed, stored in a buffer, or both. I also 
allow control over the leading zeroes/blanks option and 
the number of digits. 


This is only one method out of many, but it is fairly 
compact and easy to understand, without being too slow. 
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1010: @sweetes Soetee ec ot eet oee coe 
1020 # CONVERT VALUE TO DECIMAL CHARACTERS 
1030 & BY BOB SANDER-CEDERLOF 
1050 CONVERT 
0800- AO 00 ~=—-1060 LDY #0 POINT AT FIRST CHARACTER 
0802- A2 04 1070 F LDX #4 5 DIGITS 
0804- Ag BO 1090 .1 LDA #$B0 SET DIGIT TO ASCII ZERO 
0806- 4 1100 .2 PHA PUSH DIGIT ON STACK 
0807- 38 1110 SEC SUBTRACT CURRENT DIVISOR 
0808- AD 7 08 1120 LDA BINARY. VALUE 
O80B- FD 2D 0 1130 SBC PLNTBL, 
O80E- 48 1140 PHA SAVE BYTE ON STACK 
O80F- AD 38 08 1150 LDA BINARY. VALUE+1 
0812- FD 22 08 1160 SBC PLNTBH,X 
0815- 90 Cc 1170 BCC LESS THAN DIVISOR 
0817- 8D 38 08 1180 STA BINARY. VALUE+1 
O81A- 68 1190 PLA GET LOW BYTE OFF STACK 
081B- Bp 37 08 1200 STA BINARY. VALUE 
O81E~ 6 1210 PLA GET DIGIT FROM STACK 
O81F- 69 00 1220 ADC #0 INCREMENT DIGIT (CARRY WAS SET) 
0821- DO E3.~—s-: 11230 BNE .2 .. ALWAYS 
0823- 68 1240 .3 PLA DISCARD BYTE FROM STACK 
O82h- 6 12 PLA GET DIGIT FROM STACK 
0825- 99 39 08 1260 STA DECIMAL. VALUE 
0828- ¢ 1270 INY OrNt. TO NEXT DIGIT 
0829~ CA 1280 .4 DEX POINT TO NEXT DIVISOR 
O82A- 10 D8 ~=—-1290 BPL .1 
082C- 00 : RETURN 
O82D- 01 1320 PLNTBL .DA #1 
O82E- OA 1 30 SDA #10 
O82F- 64 1340 “DA #100 
0830- E8 1350 ;DA #1000 
0831- 10 1360 .DA #10000 
0832- 00 1 79 PLNTBH .DA /1 
0833- 00 1380 -DA /10 
0834- 00 1390 -DA /100 
0839 - 0 1400 .DA /1000 
0836- 2 1410 : ;DA /10000 
0837- 1430 BINARY.VALUE .BS 2 
0839- 1440 D DECIMAL.VALUE .BS 5 


Teamed up inside \ 
your Apple, Watson | 


adds new features “e 
that give you complete 
access to everything you ever 


wanted to know about memory 
and disks. Recover blown disks, 


Eprom or disk versions are always at 
your Gngertips. Watson (requires The 
laspector), $49.95. The Inspector, 
$59.95. At your local dealer or direct. 
MasterCard and Visa holders order 
toll-free, or reaurn the coupon. 


1-800-835-2246 


* Send me QAAEGA AAICROWARE, INC. 


C) The inspector @ $59.95 222 So. erence 
fix catalog entries, display and delete Check of money oe sliced: aiatedwanse 
control characters, repair bad data files even desc 


on disks with non-nor DOS. Search for ward and 
backwards in memory, edit in HEX, ASCII], NEGATIVE ASCII : 
and LOWER CASE. Scan disks forward and backwards, follow files 
forward and backwards in track/sector list on either 13- or 16-sector 3 
disks. Lockout sectors on Track Bit Map, reconstruct VIOC, find and display all 


Trach/ Sector Lists. yl aral prdesicey dh of Sectors used on disk. read Nibbles track-by-track, 
Disasecubic with 


g 
Fa" 
f 
+ 
| ee 
Ha 
: 
 & 
{ 
1982 Omega MicroWare. Inc 


ditrens red and wrt dey ds A DOS dyn coro her To cd 
Ob well. you get the idea. 
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| 
| 
System ri | 
Apple uO Apple + Integer Card] 16K Ram Card (1) 
| 
| 
| 
| 
| 
| 


Y ! : 
Apple is a regisiered trademark of Apple Computer. Inc “ 
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S-C Macro Assembler 


S-C Software Corporation is pleased to introduce the S-C Macro Assembler, the latest version of our most popular product. 
The S-C Assembler II Version 4.0 already has the reputation of being the easiest editor/assembler to learn, to remember, and 
to use...now the S-C Macro Assembler provides a new level of power and performance for the beginner and professional pro- 
grammer alike. 


29 Commands, including a convenient EDIT com- 
mand with 15 subcommands. COPY and REPLACE 
commands further simplify entry and modification of 
even the most complex programs. 


20 Assembler Directives (Pseudo-Ops) provide all 
features necessary for professional software 
development, including conditional assembly and 
macro generation. 


Operates in any Appie Il or Apple II Plus with at least 
32K RAM and one disk drive. Any additional memory 
or disk drives will be used as required. A Language 
Card version is also included. 


A memory size of 48K allows source programs of 
over 24,000 bytes to be handled entirely within 
RAM. The Language Card version allows source pro- 
grams of over 32,000 bytes. Much larger programs 
can be edited and assembled using the “INCLUDE” 
and ‘“‘TARGET FiLE” capabilities, up to the limit of on- 
line disk storage. 


Programs can be edited, assembled, and tested en- 
tirely within the framework of the S-C Macro 
Assembler. The editor and assembler are co- 
resident, allowing rapid cycles of modification, re- 
assembly, and check-out. All DOS and Apple Monitor 
commands are active as well, providing a familiar in- 
terface to the standard Apple features. 


Uses its own high-speed technique to store source 
files, but also can read or write standard TEXT files. 
You can EXEC in files from another assembler, use 
some other text editor to prepare files, keep a library 
of routines on disk to EXEC into any program, or use 
S-C Macro Assembier to prepare EXEC files for any 
purpose. 


Price is only $80! Includes diskette with Macro 
Assembler and sample programs, a 100-page 
Reference Manual, and a Programmer Reference 
Card. (Registered Owners of S-C Assembler Il Ver- 
sion 4.0 may purchase the upgrade package for only 
$27.50). 


Commands 


Source: NEW, LOAD, SAVE, 


TEXT, HIDE, MERGE 


Editing: UST, FIND, EDIT, 
DELETE, REPLACE, 
COPY, RENUMBER 


List Control: FAST, SLOW, PRT,” 


Object: ASM, MGO, VAL, 
SYMBOLS 


Miscellaneous: AUTO, MANUAL, 


INCREMENT, MEMORY, 
MNTR, RST, USR 


All Apple Monitor Commands 


All Apple DOS 


Commands 


Assembler Directives 


-OR 
TA 
TF 
IN 
.EN 
.EQ 
.DA 
.HS 
.AS 
AT 
.BS 
Tl 
.UST 
.PG 
.0O 
.ELSE 
.FIN 
.MA 
.EM 
.US 


Origin 

Target Address 
Target File 
Include File 

End of Program 
Equate 

1- or 2-byte Data 
Hex String 

ASCli String 
ASCII Terminated 
Block Storage 
Title 

Listing Options 
Page Eject 


Conditional Assembly 


Macro Definition 
End of Macro 
User Directive 


Already well-known for excellent support, S-C Software Corporation pledges to continue development of new features, and to 
help owners gain the maximum benefit from the S-C Macro Assembler. In addition to telephone consultation for registered 
owners, a monthly newsletter is available by subscription (currently $15/year). The “Apple Assembly Line” covers items of in- 
terest to assembly language programmers at all levels, and has helped many to advance their programming skills. 


“Makes assembly language 
programming on the Apple 


as easy aS programming 


in BASIC.” 
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S-C Software Corporation 

2331 Gus Thomasson, Suite 125 

P.O. Box 280300 

Dallas, Texas 75228 

(214) 324-2050 

We take Master Card and Visa 

Apple is a trademark of Apple Computer 
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The Tiniest Motherboard......ccsscccvceeeee - BOD Sander —-Ceder lof 


When I was at the Boston Applefest last week, Chad Pennebaker 
of Douglas Electronics showed me what he called the world’s 
smallest Apple Mother Board. It is a bus board really, with 
ten Apple-Compatible S@-pin sockets labeled A, B, C, and 1 thru 
7. The seven numbered slots accept almost any board made for 
Apples. Slot A is designed to hold a 6562 card, slot B a RAM 
card, and slot C a ROM card. 


Some fantastic prices too: mother board, $95; CPU card, $96; 
64K RAM card which maps with 48K from @ to $BFFF, and i2K from 
$0606 to SFFFF, and another 4K from $D@66 to SDFFF ‘sound 
familiar?) , $196; 12K EPROM card (without EPROMS), $786. 


Chad showed me a beautiful little cabinet it all fits in, 
Apple-beige metal with walnut sides. I didn’t catch the price. 
There is also a power supply available, which looks just like 
the Apple unit. A card which provides Keyboard and screen 
functions is on the way. 


Here’s how to reach them: Douglas Electronics, Inc., 718 
Marina Blvd., San Leandro, CA 94577. Or call at (415) 
483-8776. 


WHY YOU NEED THE INSPECTOR. 


f you’re serious about programming, you need read and alter files, locate strings in memory or on 
to set all your utilities together in one place — disk. The uses are endless. The manual, alone, is an 
inside your Apple. The Inspector comes on an education. And it's always there when you need it. 
Eprom that simply plugs into the D8 socket, or on 
a disk ready to merge with Integer Basic for ou need the most powerful disk and memory 
automatic loading on boot. Either way, it stays at utility available for your Apple. You need the 
your fingertips, ready to call without disturbing Inspector. 


your current program. 
ee your local dealer, or order direct for just 

he Inspector puts you in total contro! of both $59.95. Mastercard and Visa holders order 

memory and disks. You can search forward toll-free, 1-800-835-2246. 
and backwards, edit, read nibbles, 
map disk space, dump the screen 
: a printer, here every secret 

your Apple. Use The Inspector OMEGA MICROWARE, INC. 

yair blown disks, undelete —_ 222 SO. RIVERSIDE PLAZA 
fles input “illegal” commands, p , CHICAGO, IL 60606 
312-648-1944 


Apple i a registered trademark of Apple Computer. foc 
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Replacing INIT Can Be DangerouS.....ccccccccccceseceeebBill Morgan 


I have recently spent several days beating my head against an 
impossible bug, and I'll bet that some of you have run into, or 
will hit, the same thing. Here's my tale.... 


One of the most common enhancements to Apple's DOS is the 
addition of new commands. You do this by replacing one of the 
existing commands, usually INIT, VERIFY, or MAXFILES, with new 
code and a new name. I got into trouble replacing INIT, and 
had a great time figuring out why! 


The SHOW Command ... 


I was working with the SHOW command, as published in the July, 

1982 Apple Assembly Line. Typing SHOW <filename> displays any 

sequential text file on the screen; it's a really handy command 
to have. 


SHOW is installed in place of INIT. Making the change involves 
placing the new code over the File Manager's INIT handler at 
SAE8E and at SAS54F, changing the command name at S$A884, and 
altering the table of permissible and required keywords at 
$SA909. These are the usual steps to replace a command. See 
the July '82 issue for more details about SHOW. 


ee. and File Manager Calls 


The S-C Word Processor uses one of the popular high-speed 
methods to handle text files. It calls the File Manager to 
OPEN the file, then uses its own code to LOAD or SAVE text, by 
directly calling RWTS. So far, so good, this is basically 
normal. However, after I installed the SHOW command in DOS, I 
couldn't SAVE new files from the Word Processor! SAVEing to an 
existing file worked just fine, but trying to create a new file 
returned a FILE NOT FOUND error. What??? 


A little bit of digging convinced me that this was impossible. 
What does changing INIT have to do with OPENing a text file? 
There is that table which tells what a command can or cannot 
do, but SHOW is nowhere near OPEN, and besides, the table is 
used by the command handler, not by the File Manager. You tell 
the File Manager that it can create a file, if necessary, by 
setting the X register to zero before doing the JSR $3D6. The 
Word Processor does that just right. 


A lot more digging brought the solution to light. When the 
File Manager (FM) OPENs a file, it does refer to that table at 
SA909 to see if it can create a new file. It loads the x 
register with a command index kept at SAASF, then checks the 
corresponding table entry. But what does that have to do with 
INIT? Read on... 
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When you enter FM through $3D6 it jumps to a special entry at 
SAAFD. The first thing it does there is check the X register 
to see if it will be allowed to create a new file. If X is 
nonzero (no new file), FM stores a 2 in the command index 
(SAA5F). That is the index for the LOAD command, which cannot 
create a file. If X is zero (new file allowed), FM stores that 
zero in the command index. And zero is the index to the INIT 
command, which does create a new file (usually HELLO). 


So there it is. If we replace INIT with a command that is not 


allowed to create a new file, we will mess up programs that 
call the File Manager directly to OPEN new files. Ouch!! 


Fixing the Problem 

There are several possible ways to avoid such trouble: 

1) Don't mess with INIT. If you leave it alone, it won't bite 
you. But, INIT is so useless in a running program and 
offers so much space for new code. It's sure hard to 
resist. 


2) Only replace INIT with other commands that are allowed to 
create new files. That's OK, but limiting. 


3) Add these additional patches to whatever new command you're 
playing with: 


A. Put JMP FM.ENTRY.PATCH at SAAFD. 


B. And put FM.ENTRY.PATCH wherever is convenient (in SHOW I 
put it at SAEA5, just after the PAUSE.CHECK code): 


FM. ENTRY. PATCH 
CPX #0 Create new file? 
BEQ .l 0 means yes 
LDX #2 No, use LOAD index 
BNE .2 eee Always 
oak LDX #4 Yes, use SAVE index 
o2 JMP S$ABO03 Return to File Manager 
Conclusion 


This kind of problem is a great example of why you need to be 
very careful about patching an operating system: it's hard to 
tell what kind of "impossible" interactions will turn up. On 
the- other hand, how else can we learn about what's really going 
on inside our Apples? And what else can replace the "AHA!!! 
Ahhh..." sensation you get when you unravel a really cute bug? 
Keep on patchin'. 
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Apple Peripherals Are All We Make 


That’s Why We’re So Good At It! 


The TIMEMASTER 
Finally, a clock that does it ALL! 


@ Designed in 1983 using I.C. technologies that simply did not exist 
when most other Apple clocks were designed. 

@ just plug it in and your programs can read the year, month, date, day, 
and time — down to 1 millisecond! 

@ Powerful 2K ROM driver — No clock could be easier to use. 

@ Full emulation of most other clocks, including Mountain Hardware’s 
Appleclock (but you'll like the TIMEMASTER mode better). 

@ Compatible with all of Apple’s languages, CP/M and PASCAL software 
on disk. 

@ Eight software controlled interrupts so you can execute two programs 
at the same time. (Many examples are included) 

@ On board timer lets you time any interval up to 48 days long down to 
the nearest millisecond. 

The TIMEMASTER includes a disk with some really fantastic time 

oriented programs (over 25) plus a DOS dater so it will automatically add 

the date when disk files are created or modified. This disk is over a 

$200.00 value alone — we give the software others sell. All software 

packages for business, data base management and communications are 

made to read the TIMEMASTER. 


If you want the most powerful and the easiest to use clock for your Apple, 


you want a TIMEMASTER. 
PRICE $129.00 


Super Music Synthesizer 


sauna mnanennemnnageaass 


@ Complete 16 voice music synthesizer on one card. Just plug it into your 
Apple, connect the audio cable (supplied) to your stereo, boot the 
disk supplied and you are ready to input and play songs. 

It's easy to program music with our compose software. You will start 
right away at inputting your favorite songs. The Hi-Res screen shows 
what you have entered in standard sheet music format. 

Now with new improved software for the easiest and fastest music 
input system available anywhere. 

We give you lots of software. In addition to Compose and Play 
programs, the disk is filled with over 30 songs ready to play. 

Easy to program in Basic to generate complex sound effects. Now your 
games can have explosions, phaser zaps, train whistles, death cries. 
You name it, this card can do it. 

Four white noise generators which are great for sound effects. 

Plays music in true stereo as well as true discrete quadraphonic. 
Full control of attack, volume, decay, sustain and release. 

Will play songs written for ALF synthesizer (ALF software will not take 
advantage of all the features of this board. Their software sounds the 
same in our synthesizer.) 

@ Automatic shutoff on power-up or if reset is pushed. 

@ Many many more features. 


PRICE $159.00 


Z-80 PLUS! 


@ TOTALLY compatible with ALL CP/M software. 
@ Executes the full Z-80 and 8080 instruction set. 
@ Fully compatible with microsoft disks (no pre-boot required). 


@ An on-card PROM eliminates many I.C.’s for a cooler, less power 
consuming board. (We use the Z-80A at a fast 3.58 MHZ) 

@ Does EVERYTHING the other Z-80 boards do, plus Z-80 interrupts. 

@ All new 1983 design incorporates the latest in I.C. technologies. 

@ Complete documentation included. (User must furnish software) 


The Z-80 PLUS turns your Apple into a CP/M based computer. This 
means you can access the largest body of software in existence. Two 
computers in one and the advantages of both, all at an unbelievably low 
price. 


COMING SOON: The Z-80 Plus for the Apple It! 
Pe PRICE $139.00 


Analog to Digital Converter 


@ 8 Channels 

@ 8 Bit Resolution 

@ On Board Memory 

@ Fast Conversion (.078 ms per 
channel) 


The analog to digital conversion takes place on a continuous, channel 
sequencing basis. Data is automatically transferred to on board memory 
at the end of each conversion. No A/D converter could be easier to use. 


@ Eliminates the Need to Wait for 
A/D Conversion (just PEEK at data) 

@ A/D Process Totally Transparent 
to Apple (looks like memory) 


Our A/D board comes standard with 0, 10V full scale inputs. These inputs 
can be changed by the user to 0, -10V, orf -5V, +5V or other ranges as 
needed. 


Information on temperature sensors is given in manual. 

The user connector has +12 and -12 volts on it so you can power your 
sensors. 
Accuracy 0.3% 


Input Resistance 20K Ohms Typ 


A few applications may include monitoring and control of @ flow 
@ temperature @ humidity @ wind speed @ wind direction @ light 
intensity @ pressure @ RPM @ storage oscilloscope @ soil moisture 
and many more. 


We also manufacture a 16 channel digital input/output board for 


control applications. PRICE $129.00 


Ile Only: 80 Column, 64K RAM Card 


@ Expand your Apple Ile to 128K memory. 
@ Provides an 80 column text display. 
@ TOTALLY compatible with ALL Apple software and 
languages, there are NO exceptions. 
@ Automatically expands VisiCalc to 95K storage. In 80 columns! 
@ COMPLETE documentation included. (We don’t make you refer to the 
Apple manual as others do.) 


@ Uses the same commands as the Apple 80 column board. 

@ Incorporates the latest high speed, low power I.C. technologies. 

@ Plugs into the Apple Ile expansion slot 

@ Simply the best expansion card for your Apple Ile at any price, offering 
you phenomenal performance at a very nominal price. 


PRICE $149.00 


Our boards are far superior to most of the consumer electronics made today. All I.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. 
boards are glass-epoxy with gold contacts. Made in America to be the best in the world. All products work in APPLE Ile, !I and t+. (Except 80 column card.) 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle two 


year warranty. 
All Orders Shipped Same Day 
Texas Residents Add 5% Sales Tax 
Add $10.00 tf Outside U.S.A. 
Dealer Inquiries Welcome 
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Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 470301 
Dallas, TX 75247 


Call (214) 492-2027 


7am to 11pm 7 days a week 
MasterCard, Visa & C.O.D. Welcome 
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Reformatting a Lot of Text.....ceccseeeeeeeBOb Sander-Cederlof 


At the Boston AppleFest I picked up a copy of David Durkee's 
SoftGraph program. You probably read the series of four 
articles in Softalk (Jan thru Apr, 1983) in which he developed 
this fine little system for editing data and creating pie, bar, 
and line charts. If you didn't, let me recommend them. 


(If you don't get Softalk, why not? It's' free! The best 
Magazine there is for Apple owners! Send your serial number to 
Al Tommervik at Softalk, Box 60, North Hollywood, CA 91603 
today!) 


Anyway, back to SoftGraph. On the disk is a 107 sector binary 
file loaded with ASCII characters. A small program on the disk 
will display or print the text from this file. Never satisfied 
with things as they come, I wanted to load the file into my 
word processor. The problem itself may be irrelevant to you, 
but the steps to solving it can be quite instructive. Follow 
along now.... 


My word processor will read binary or text files, but it 
expects the data to be ASCII with the high bits all set to l. 
Naturally, Durkee's file had all high bits set to 0. “That's 
OK, I'll just run the handy little code from AAL Dec 82, ‘Add 
Bit-Control to Apple Monitor’ " 


So I did, but setting all the high bits wasn't quite enough. A 
second feature of the file came to light: no carriage returns 
anywhere. Each line was padded with trailing blanks. to fill 
exactly 40 bytes. Even the blank lines contained 40 blanks. I 
fidgeted in my chair, and pulled a little hair. 


After several false starts I finally resorted to a trick I 
learned back in the dark ages before structured programming, 
with its scientific rules and esoteric vocabulary, was 
invented. I constructed a flow chart! I do this every once 
and a while, as a thinking tool. But you probably won't find 
any in my documentation, because they are just a tool. I 
usually modify my thinking as I code, which obseletes the 
chart. Most charts are done on odd bits of scrap paper, and 
don't last overnight. 


Here was my plan. First, BLOAD the file somewhere in memory 
and find its end by looking at SAA60 and SAA61. This pair of 
bytes contains the length of the last file loaded. Second, run 
a conversion program to change the data IN PLACE. Third, BSAVE 
the modified data on a new file. I decided to save time by 
manually typing the BLOAD and BSAVE commands, rather than 
writing code to do these steps inside my conversion program. 


It so happened that the file would fit between $2000 and $8977. 
With the S-C Assembler in the language card at $p000, this 
space was available. The source code for my conversion program 
fit above $9000 running up to S$95FF. The object code started 
at $800, and didn't make it out of that page. 
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Without drawing the flow chart for you, here is the general 
idea of the conversion process: 


1. Set up two pointers, one for retrieving characters out 
of the text and the other for storing converted 
characters into the text. 


2. Get 40 characters from the text into a little buffer. 
If at the end (marked by a 00 byte), quit. : 


3. Scan backwards in the little buffer to the first 
non-blank character. 


4. If the whole line is blank, store a carriage return 
into the text. 


5. Otherwise, copy the little buffer back into the text, 
with the high bit set on each byte. Then add one 
blank, because we need to maintain a blank between 
words. (They may not print on separate lines after 
re-formatting with my word processor.) 


6. Back to 2. 


(I'm sorry, but except for the lines and boxes, that does look 
a lot like a flow chart.) 


One little wrinkle I thought about but didn't implement until 
later had to do with double spacing between paragraphs. I 
handled it by checking the length of the previous line after 
stuffing the carriage return for a blank line. If the previous 
line was non-blank, I sent an extra carriage return back into 
the text. 


My routine counts on the assumed condition that the resulting 
text will be shorter than the original text. I knew the file 
began with several lines of 40 blanks, each being replaced with 
a single carriage return, so I felt confident that all would 
work. If I was wrong, I would be storing modified data on top 
of yet-unprocessed data, with wild results. Don't worry, it 
worked out OK. 


Lines 1050-1090 define some variables. The data will begin at 
$2000, because I put it there with a "BLOAD DOCFILE,A$2000" 
command. GET.PNTR and PUT.PNTR will start out pointing at 
$2000. Each time I pull 40 characters out of the data I will 
add 40 to GET.PNTR. Each time I put one character back into 
the data I will add one to PUT.PNTR. LAST.LINE.SZ keeps track 
of previous line length so I can get double spacing between 
paragraphs. 


BUFFER is for the forty characters pulled out of the data each 
cycle through the program. I frequently use $200 for buffers 
like this, because it is a nice handy area. And most Apple 
software uses $200 for a buffer. But...since the monitor does 
use $200, it can be difficult to see what is put there by my 
program. Hence, this time I put the buffer at $280 instead. 
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Lines 1110-1390 implement the logic flow described above. 
Previous line length starts out zero when there were no 
previous lines (1120-1130). The two pointers get initialized 
at 1140-1190. 


Calling GET.40.CHARS pulls the next 40 bytes out of the data 
into my buffer at $280. If a 00 byte is hit, the subroutine 
returns with carry set; if not, carry is clear. Line 1210 acts 
on the carry info to end the program if we are done. 


TRUNCATE.BLANKS starts at the end of the buffer looking for 
non-blanks. If the whole buffer is blank, the subroutine sets 
carry. If not, it clears carry. Line 1230 acts on carry. 
Non-blank lines are copied back into the data by PUT.CHARS, and 
then PUT.CHAR is used to add one trailing blank. Blank lines 
cause a return ($8D) to be put into the data, and if the 
previous line was non-blank a second return is added. 


PUT.CHAR (lines 1410-1470) stores the byte in the A-register 
into the data where PUT.PNTR points. Then PUT.PNTR is 
incremented. PUT.CHARS (lines 1810-1880) calls PUT.CHAR once 
for each character in the buffer, omitting all the trailing 
blanks. 


With trepidation I typed $800G to execute it, after being sure 
I had saved the source code and then opened both disk drive 
doors. To my surprise, the program ran without failure the 
very first time! Not to say it was perfect. 


After execution I looked at PUT.PNTR to see where the new data 
ended. It was $70C7, if I remember correctly. Then I BSAVE'd 
with "BSAVE DOCFILE 2,A$2000,L$50C7", and loaded my word 
processor. 


In the word processor I loaded the new DOCFILE 2, and it was 
all there. Somehow two small sections were missing all the 
carriage returns, but all the rest was perfect. I still don't 
know what caused those two sections (total of about ten lines) 
to fail, but it isn't all that important. I used the word 
processor to fix them, and the job was done. 


1000 #SAVE S.CONVERT DURKEE 
1020 # CONVERT DURKEE'S DOCFILE 
1030 . TO S-C WORD ASCII FORMAT 
1040 #-----------~-------------------- 

2000- 1050 DATA EQ $2000 

0000- 1060 GET. PNTR -EQ $00,01 

0002- 1070 P R FQ $02,03 

0004- 1080 LAST.LINE.SZ .EQ $04 

0280- 1090 B -EQ $280 | 
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1110 CONVERT 
0800- AQ 00 1120 LDA #0 
0802- 85 04 et STA LAST.LINE.SZ 
O804- 1140 LDA #DATA 
0806- 85 0 1150 STA GET. PNTR 
O808- 85 0 1160 STA PUT. PNTR 
OSOA= AQ 20 sake LDA /DATA 
O80C=- 85 01 1130 STA GET. PNTR+1 
O80E- 85 03 1190 STA PUT. PNTR+1 
0810= 20 49 08 1200 .1 JSR GET. 40.CHARS 
0813=- BO 23 1210 BCS . 
0815- 20 69 08 1220 JSR TRUNCATE. BLANKS 
0818- BO OA SiG BCS .2 EMPTY LINE 
O81A=- 20 (2 08 1240 JSR PUT.CHARS 
081D= AQ AO 1250 LDA #$A0 BLANK 
081F- 20 3E 08 1260 JSR PUT.CHAR 
O824—- AQ 8D 1280 .2 LDA eseD <RETURN > 
0826- 20 3E 08 1290 JSR PUT.CHAR 
0829- A5 04 1340 LDA LAST.LINE.SZ 
O82B- FO E3 1310 BEQ .1 
O82D- AQ 00 1320 LDA #0 
O82F=- 85 04 1 30 STA LAST.LINE.SZ 
0831— AQ 8D 1340 LDA 
0833- 20 3E 08 1350 JSR PUT.CHAR 
08 33— or 00 1 R 23 LDA #0 <EOL> 
O83A- 20 3E 08 1380 JSR PUT.CHAR 
083D- 60 1390 RTS 
1 00 6 Lecce en meeeweneeeeeneecoeenanee 
1410 PUT.CHAR 
O83E- AO 00 1420 LDY ft 
O840=- 91 02 Meee STA (PUT.PNTR),Y 
O842- E6 02 1440 INC PUT.PNIR 
O844- DO 02 1450 BNE .1 
O846= E6 03 1460 INC PUT. PNTR+1 
0848- 60 ne 1 RTS 
(NBO) Wo seals reel oe 
1490 GET. 40.CHARS 
O849- A000 «1500 LDY #0 
O84B- B1 00 1510 .1 LDA (GET.PNTR) ,Y 
O84D=- C9 00 1520 CMP #0 
O84F- FO 16 Aone BEQ . END OF DATA 
0851=- 09 80 1540 ORA #$80 
0853- 9 0 02 1550 STA BUFFER, Y 
0856- C 1560 INY 
0857= CO 28 1240 CPY #40 
0859- 90 FO 15380 BCC .1 
O85B- AQ 27 1590 LDA #39 CARRY SET 
O85D- 65 00 1600 ADC GET.PNTR 
O85F- 85 00 1610 STA GET.PNTR 
0861- 90 02 1620 BCC .2 
0863- E6 01 1638 INC GET. PNTR+1 
0865- 18 1640 .2 CLC 
0866- 60 1650 RTS 
0867- 38 pee 23 SEC END OF DATA 
0868- 60 1 fe RTS 
1600 Wietesee pas ee etd ett 
aoe TRUNCATE. BLANKS 
0869- B8 it 02 1700 .1 LDA BUFFER-1,Y 
086C- C9 AO 1710 CMP #$A0 BLANK? 
O86E=- DO 05 1720 ° NO 
0870- 88 tT Re DEY YES 
0871=- DQ F6 1740 BNE .1 
0873- 1750 SEC EMPTY LINE 
0874- 1760 RTS 
O877- 18 1780 CLC 
0878- 60 1790 RTS 
ioe adeeb tna ette oet aetoetenee a 
1810 PUT.CHARS 
al ~- A2 90 1820 #0 
O87B=- BD 80 02 1830 .1 LDA BUFFER ,X 
O87E- 20 3E 08 1840 JSR PUT.CHAR 
0881- E8 1850 INX 
0882- EX 04 1860 CPX LAST.LINE.SZ 
O884- 90 F5 1870 BCC .1 
0886- 60 1880 RTS 
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CwsTtom CHARACTER SETS 


One of the features “hidden’ in many printers available today 

is their ability to accept user-defined character sets. With the 
proper software, these custom characters are “downloaded” from 
your Apple II computer to the printer in a fraction of a second. 
Once the printer has “learned’ these new characters, they will 
be remembered until the printer is turned off. 


After the downloading operation, you can use your printer with 
virtually any word processor. Just think of the possibilities! 
There’s nothing like having your own CUSTOM CHARACTERS to help 
convey the message. And you still have access to those built-in 
fonts as well! Here’s a quick took at some possible variations: 


BUILT-IN CUSTOM 
10CPI: AaBbCcDdEeF fGQHh! i Jj KK AaBbCcDd€ef FEQHH1i 3 SKK 
12CPI: AaBbCcDdEeF fGqHhI i JjKk AaBbCcDd€ef FEgHh Ii J jkk 
17CPI: AaBbCcDdEeF #6qHth) i JjKk AaBSCcBdCef Folk Li J tk 
SCPI: Aabbcc DpaaIeeEF F AaBbCc DAE e& F&F F 
6CPI: AaBbBbCcDdEeF fF AaBboeoccDd€ ef F 
SCPI: AaBbCcDdEeF fF RaBbCcDd€ ef Ff 


And let’s not forget Enhanced and Underined printing as well... 


AaBbCcDdEeFfGgHh!1 i Ji kk AabbCcDd€ef FEQHH1I 1S JKK 
AaBbCcOdEeFfGqHh!I i JjKK AaBbbCcDd€ef FOQHLI 1S 5K 


The Font Downloader & Character Editor software package has 

been developed by RAK-WARE to help you unleash the power of your 
printer. The basic package includes the downloading software with 
4 fonts to get you going. Also included is a character editor so 
that you can turn your creativity loose. Use it to generate unique 
character fonts, patterns, symbols and graphics. A detailed user’s 
guide is provided on the program diskette. 


SYSTEM REQUIREMENTS: 

* APPLE II, APPLE II Pius, APPLE /7/e or lookalike with 48K RAM 

* “DUMB’ Parallel Printer Interface Board (like Apple’s Parallel 
Printer Interface, TYMAC’s PPC-100 or equivalent) 


The Font Downloader & Editor package is only $39.95 and is currently 
available for either the Apple Dot Matrix Printer or C.Itoh SS10AP 
(specify printer). Epson FX-80 and OkiData versions coming soon. 
Enclose payment with order to avoid $3.00 handling & postage charae. 


RP A HR - We HK «€ 
41 Ralph Road West Orange New Jersey 07052 


Say You Saw It In APPLE ASSEMBLY LINE! 
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If you have ever played Centipede or Missile Command in the 
arcade, then you know that a track ball is about the best 
control device made. A joystick usually can move across the 
whole screen a little faster, but a track ball gives much 
finer, smoother control. A "mouse" is said to be even better, 
but the only mouse I have seen advertised for the Apple ][ 
sells for about $300-400. Besides, I never have 2-3 square 
feet of free space on my desk, for the mouse to run around on. 


Several track balls for the Apple have appeared recently, all 
in the $60-80 price range. I have tried out two of them so 
far, from TG Products and from Wico Corp. Here's what I think: 


The TG track ball is an Apple-colored box about 5 x 6 x 2 1/2 
inches, with a red ball that is a little over two inches in 
Giameter. There are two pushbuttons on the left edge of the 
box. It plugs into the game port, just like a joystick. It 
contains two potentiometers and can be used with existing 
paddle-reading software, also just like a joystick. This ball 
feels stiff and jerky, and requires a constant downward 
pressure on the ball to keep the pots properly tracking. The 
range of values is 0-255, with no wraparound. 


$64.95 TG Products, 1104 Summit Ave., #110, Plano, TX, 75074 


The Wico track ball is a cream-colored ball in a black and red 
box, just about the same size as the TG. There are two buttons 
in the upper left corner of the top side, convenient to the 
left thumb. The larger button is about .8" in diameter, the 
other is about .3" across. This unit uses its own interface 
card (which is supplied), so it leaves the game port free, but 
requires a motherboard slot. 


Wico's ball is based on the same design as the arcade controls: 
the track ball rolls on ball bearings, and is read by optically 
counting the revolutions of the rollers supporting the ball. 
This design gives a much better, smoother feel to the ball's 
motion, and gives the programmer more flexible ways to read and 
control the ball. However, it also means that no existing 
programs can use the Wico ball. 


$79.95 Wico Corp., 6400 Gross Point Rd., Niles, IL, 60648 


In summary, the TG track ball fits right into the "standard" 
Apple environment. It plugs into the game port and works with 
all software that reads paddles 0 and 1, but it feels awkward 
to use. I consider it a poor substitute for a joystick or 
paddles, where they are appropriate ... and a poor substitute 
for a real trackball, if that's what you need. 


On the other hand, the Wico track ball is much more responsive 
and comfortable to use, but it requires an interface slot and 
special programming. I think it's well worth the effort, and I 
intend to try using it in as many different applications as I 
can think of. 
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Wico's trackball comes with a booklet containing a couple of 
pages about programming with their interface. The following is 
a summary of that information, plus whatever I've been able to 
figure out. The program given here reads the ball and displays 
the X and Y values on the screen in hex notation. It also 
checks the keyboard for the keys "1" through "4", and sets the 
ball's speed to match. 


The interface card contains no ROM. It does have eight 
registers which you read and/or write to control the trackball. 
Here is a table of the registers' addresses and functions ("N" 
is slot number + 8, i.e., S$9-SF): 


Address Read Write 
SCONO X Position X Position 
SCON1 Y Position Y Position 
SCON2 Bounded Bounded 
SCON3 Wraparound Wraparound 
SCON4 - Speed 1 
SCONS = Speed 2 
SCON6 Buttons Speed 3 
SCON7 - Speed 4 


The first two registers, SCONO and S$CON1, contain the X and Y 
readings from the trackball. You can write to these locations 
to set starting values, or to force particular values at any 
time. Lines 1850-2040 of the program show how to read the 
registers, limit their values, and keep track of current value, 
last value and change since last reading. 


Another approach is to read only the change in value from the 
trackball, and keep track of the values separately. To do 
that, first turn on the wraparound feature, as described below. 
Then set SCONO and S$CON] to 0. That takes care of initial- 
ization. Now, whenever you want to read the changes in the 
ball's position, just call this routine: 


LDA XREG 
STA DX 
LDA YREG 
STA DY 
LDA #0 
STA XREG 
STA YREG 
RTS 


Since wraparound is permitted, DX and DY will be positive when 
the ball was moved down or right, and negative when it was 
moved up or left. Reset the registers to 0 after reading them, 
and next time you call this routine they will again contain 
only the change in value. 


SCON2 (BOUNDRY) and SCON3 (WRAPS) control whether the readouts 


will stop at 0 and 255, or wrap around. Reading or writing to 
either address will set the corresponding condition. 
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You can read the state of the pushbuttons from $CON6; each 
button turns on one bit. Bit 7 (sign bit) is the large button 
and bit 6 (overflow bit) is the small one. These are very easy 
to test from assembly language; just BIT SCON6 and use BMI & 
BPL for the large button, or BVC & BVS for the small one. 

Lines 2060-2140 of the program show a good way to translate 
these bits into bytes, so Applesoft can easily test them. 


The speed or scale of the readout can be controlled by writing 
to two of the locations from $CON4-SCON7. The values written 
do not matter, you're throwing soft switches. These addrésses 
select a divider to apply to the X and Y readings. Here's a 
table of addresses and effects: 


Addresses Speed Divide by 
SCON6 & SCON4 Fastest 1 
SCON6 & SCONS5 Med Fast 2 
SCON7 & SCON4 Med Slow 4 
SCON7 & SCONS Slowest 8 


At the fastest setting, a quarter-turn of the ball produces 
about a sixteen-point difference in the X or Y reading. At the 
Slowest setting, the same motion changes the readout by two 
points. Lines 2160-2260 are just a quick way to read the 
keyboard and produce a value of 0-3. Lines 2280-2390 are how I 
translate that number into writing the correct pair of 
addresses. 


The track ball has also proved to be an excellent cursor 
control for graphics work, and a lot of fun to use for 
controlling menu selection. I'm looking forward to trying it 
out aS a cursor control with the S-C Word Processor. 


We don't plan to stock the Track Balls, but if you want one, we 
can get the Wico unit for you for $75 plus shipping. 


1000 S----------------- =~ 
vnee . READ AND WRITE WICO TRACKBALL INTERFACE 
0024- aORe EQ $24 
C000- 1040 KEYBOARD .EQ $C000 
C010—- 1050 -EQ $C01 
FC24- 1060 VTABZ -EQ $FC2k 
FC58— 1ehG EQ $FC58 
FDED=- 1080 COUT -EQ $FDED 
FDDA- toac PRBYTE .EQ $FDDA 
4 ad WICO INTERFACE REGISTERS 
0004~- rie SLOT EQ 4 INTERFACE LOCATION 
COocOoO~ 1150 BASE -EQ SLOT#$10+$C080 
COCO- 1160 REGS -EQ BASE+0 
COCO=- Whe XREG eEQ BASE+0 
COC 1= 1180 YREG ~EQ BASE+1 
COC2- 1190 BOUNDRY .EQ BASE+2 
COC3- 1200 W ~EQ BASE+ 
COC4- 1210 SPEED1 .EQ BASE+ 
COC5- 1220 SPEED2 .EQ BASE+ 
CcOoc6- ‘So SPEED3 .EQ BASE+ 
COCT- 1240 SPEED4 .EQ BASE+ 
COC6—- re BUTTONS -EQ BASE+ 
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0800- 20 58 FC 1270 SETUP JSR HOME 
0803- A9 00 _—‘:1280 LDA #0 
0805- 8D 4F 08 1290 STA SPEED START AT TOP SPEED 
0808- 8D C2 CO 130 STA BOUNDRY NO WRAPAROUND 
O80B- AO 01 —«-:1310 LDY #1 DO THIS TWICE 
O80D- B9 45 08 1320 .1 LDA HIGH.LIMITS, Y 
0810= F9 43 08 1330 SBC LOW.LIMITS,Y SET INITIAL 
0813- 4A 13 0 LSR VALUE TO 
0814- 79 43 08 1350 ADC LOW.LIMITS,Y CENTER OF 
O817- 99 47 08 1360 STA LOCATIONS,Y LIMITS 
O814- 99 CO CO 1370 STA REGS,Y 
081D- 99 49 08 1380 STA LAST.VALUES,Y 
0820- 1390 DEY 
0821- 10 EA 1400 BPL .1 DONE? 
0823- A9 0 1420 LOOP LDA #10 CENTER DISPLAY 
0825—- 26 2h FC 1430 JSR VTABZ 
0828- A9 10 14h0 LDA #16 ON SCREEN 
O82A- 85 24 1450 STA CH 
O82C- 20 50 08 1460 JSR READ.BALL GO READ BALL 
O82F- AD 47 08 1470 LDA X 
0832- 20 DA FD 1480 JSR PRBYTE SHOW X READING 
0835- AQ AO —«- 1490 LDA #$A0 
0837- 20 ED FD 1500 JSR COUT 
O83A- AD 48 08 1510 Y AND Y READING 
O83D- 20 DA FD 1520 JSR PRBYTE 
O8h0- 4C 23 08 1530 JMP LOO DO IT AGAIN 
1550 ® VARIABLES 
1560: Besse se ooo cece cee cee See ee 
1570 LOW LIMITS 
0843 00 1580 X.LOW .DA #0 MINIMUM VALUES 
O84h- 00 1590 Y.LOW -DA #0 
1610 HIGH.LIMITS 
O845- FF 1620 X.HIGH .DA efEr MAXIMUM VALUES 
O846- FF 1630 Y.HIGH .DA #$FF 
1650 LOCATIONS 
0847 - 00 1960 x .DA #0 POINTS TO PLOT 
0848- 00 1670 ¥ “DA #0 
1680 
1690 LAST. VALUES 
0849- 00 1700 LAST.X .DA #0 FROM LAST CALL 
O84A- 00 1710 LAST.Y <DA #0 
1720 
1730 DELTAS 
O84B- 00 1740 DX DA #0 CHANGE IN VALUES 
O84C- 00 1790 DY “DA #0 
O84D=- 00 1770 $1 .DA #0 LARGE BUTTON 
O84E- 00 1780 S2 “DA #0 SMALL BUTTON 
O84F- 00 1860 SPEED .DA #0 O=FASTEST, ,3=SLOWEST 
apae # SP GSD GP SP Gb SE GP SP SP OD OP E> OS @ EB OOS OS SESOSGSOSQOGGS Seq 
1830 READ. BALL 
1810 
1850 SET.X.AND.Y 
0850~ AO 01 _—s«- 1860 LDY #1 DO THIS TWICE 
0852= B9 CO CO 1870 1 LDA REGS,Y READ BALL 
0855- D9 43 08 1880 CMP LOW.LIMITS,Y TOO LOW? 
0858- BO 0 1890 BCS . NO, GO ON 
O85A- B 43 08 1900 LDA LOW.LIMITS,Y YES, FORCE LOW LIMIT 
O85D- 99 CO CO 1910 STA REGS,Y 
0860- D9 Hp 08 1920 .2 CMP HIGH.LIMITS,Y TOO HIGH? 
0863- 90 0 1930 BCC .3 NO, GO ON 
0865- B9 45 08 1940 LDA HIGH.LIMITS,Y YES, FORCE HIGH LIMIT 
0868--99 CO CO 1950 STA REGS,Y 
O86B~ 99 47 08 1960 3 STA LOCATIONS,Y USE THIS POINT 
ca i anes — 
0870- fo 49 08. 1990 SBC LAST.VALUES,Y CALCULATE CHANGE 
0873 99 4B 08 2000 STA DELTAS, Y 
0876- 2010 PLA RESTORE POINT USED 
0877- 99 49 08 2020 STA LAST.VALUES,Y AND SAVE IT FOR NEXT READING 
O87A- 2030 DEY 
O87B- 10 D5 20h0 BPL .1 DONE? 


Apple Assembly Line...... June, 1983...20-6 Copyright «(C) S-C SOFTWARE....Page 27 


Page 28....Apple Assembly Line...... June, 


2050 
2060 SET.SWITCHES 
O87D=- AS 00 2070 LDA #0 
O87F- 8D 4D 08 2080 STA S1 ZERO 
0882- 8D 4E 08 2090 STA S2 READOUTS 
0885- AD C6 CO 2100 LDA BUTTONS READ PUSHBUTTONS 
0888- OA 2110 ASL BIT 7 TO CARRY 
0889- 2E 4D 08 2120 ROL S1 TO SI. 
O88C- OA 2130 ASL BIT 6 TO CARRY 
O88D- 2E 4E 08 2140 ROL S2 TO S2. 
2160 CHECK. KEYBOARD 
0890- AD 00 CO 2170 LDA KEYBOARD KEYPRESS? 
0893- 10 24 +2180 BPL EXIT NO, GO ON 
0895- 8D 10 CO 2190 STA STROBE YES 
0898- C9 BS ~=—_ 2200 CMP # $85 >4? 
O89A- BO 1D = 2210 BCS EXIT YES, GO ON 
O89C- C9 BO = 2220 CMP #$B0 <12 
O89E- 90 19 2230 BCC EXIT GO ON 
O8A0- 29 OF 22h0 AND $F Lose HIGH NYBBLE 
O8A2- EQ 01 2250 SBC MAKE 0- 
O8AN- 8D 4F 08 2260 STA SPEED AND SAVE IT 
2280 SET.SPEED 
O8A7- AD 4F 08 2290 LDA SPEED GET SPEED 
O8AA- 48 2300 PHA 
O8AB- 29 02 2310 AND #2 USE BIT 1 
O8AD- 4A 2320 LSR NOW 0 OR 1 
O8AE- A8 2330 TAY INDEX 
O8AF- : C6 CO 23h0 STA SPEED3,Y HIT SPEED3 | OR SPEED4 
08B2- 2350 PLA GET SPEED AGAIN 
08B3- 29 01 2360 AND #1 USE BIT 0 
O8B5- 2 70 TAY 
O8B6- 99 C4 CO 2380 STA SPEED1,Y HIT SPEED1 OR SPEED2 
O8B9- 60 2 90 EXIT TS 


ES-CAPE will set your creativity free! 


ES-CAPE will help you develop, enter, and modify 
Applesoft programs. Even if you are only copying a 
program from a magazine, ES-CAPE will help you doit 
three times faster! 


Visualize this: by pressing just a key or two, you can... 

¢ See the disk catalog, select a program, and load it into 
memory. 

¢ Browse through the program a screen or a line at a 
time. 

¢ Edit lines using powerful commands like the word 
processors heave: insert, delete, truncate, overtype, 
scan to beginning or end or to a particular character, 
and more. 

¢ See the values of the variables used by your Apple- 
soft program as it ran. 

¢ Save the modified program. ES-CAPE remembers the 
file name for you! 


ES-CAPE is easy to learn and use! 

¢ Well-written User Manual guides you through the 
learning process. 

¢ Handy Quick Reference Card reminds you of all fea- 
tures and commands. 

¢ Built-in help screens and menus refresh your mem- 
ory. You don’t have to memorize anything! 

¢ The disk is NOT protected! You can put ES-CAPE on 
every disk you own, and make as many backup copie 
as you need. 


ES-CAPE will speed up and simplify your Applesoft 

programming! 

* Choose a starting value and step size for automatic 
line numbering. 

* Swiftly find all references to a given variable, line 
number, or any other sequence of characters. 

* Quickly and automatically scan your program for any 
sequence of characters and replace them with a new 
spelling. 

¢ Enter commonly used words or phrases with a single 
keystroke. A full set of pre-defined macros is pro- 
vided, which you may modify as you wish. 

¢ Display a DOS Command Menu with a single key- 
stroke. A second keystroke selects CATALOG, 
LOAD, SAVE, and other common DOS commands. 
You can easily manage a disk-full of programs! 


ES-CAPE is available now at many fine computer 
stores, or directly from S-C Software Corporation. The 
price is only $60. 


S-C SOFTWARE CORPORATION 
2331 Gus Thomasson, Sulte 125 
Dallas, TX 75228 (214) 324-2050 


Professional Apple Software Since 1978 
Viea, MasterCard, American Express, COO accepted. 
Apple © @ \redenars of Apple Computer inc 
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S-C Macro Cross Assemblers 


The high cost of dedicated microprocessor development systems has 

forced many technical people to look for alternate methods to develop 

programs for the various popular microprocessors. Combining the 

versatile Apple II with the S-C Macro Assembler provides a cost 

effective and powerful development system. Hobbyists and engineers 

alike will find the friendly combination the easiest and best way to 
tend their skills to other microprocessors. 


The S-C Macro Cross Assemblers are all identical in operation to the 
S-C Macro Assembler; only the language assembled is different. They 
are sold asS upgrade packages to the S-C Macro Assembler. The S-C 
Macro Assembler, complete with 100-page reference manual, costs $80; 
once you have it, you may add as many Cross Assemblers as you wish at 
a nominal price. The following S-C Macro Cross Assembler versions are 
now available, or soon will be: 


Motorola: 6800/6 801/6 802 now $32.50 

6805 now $32.50 

6809 now $32.50 

68000 now $50.00 

Intel: 8048 now $32.50 

8051 now $32.50 

8085 soon $32.50 

Zilog: Z~80 now $32.50 

RCA: 1802/1805 now $32.50 

Rockwell: 65C02 now $20.00 

DEC: PDP-11/LSI-11 now $50.00 
The S-C Macro Assembler family is well known for its ease-of-use and 
powerful features. Thousands of users in over 30 countries and in 
every type of industry attest to its speed, dependablility, and 
user-friendliness. There are 20 assembler directives to provide 


powerful macros, conditional assembly, and flexible data generation. 
INCLUDE and TARGET FILE capabilities allow source programs to be as 
large as your disk space. The integrated, co-resident source program 
editor provides global search and replace, move, and edit. The EDIT 
command has 15 sub-commands combined with global selection. 


Each S-C Assembler diskette contains two complete ready-to-run 
assemblers: one is for execution in the mother-board RAM; the other 
executes in a 16K RAM Card. The HELLO program offers menu selection 
to load the version you desire. The disks may be copied using any 
standard Apple disk copy program, and copies of the assembler may be 
BSAVEd on your working disks. 


-C Software Corporation has frequently been commended for outstanding 


apport: competent telephone help, a monthly (by subscription) 
newsletter, continuing enhancements, and excellent upgrade policies. 


S-C Software Corporation (214) 324-2050 
P.O. Box 280300, Dallas, Texas, 75228 
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Ampersand Monitor Caller......ssseeeeeeeeee- BOD Sander-Cederlof 


A recent issue of the Maple Orchard, magazine published by the 
Loyal Ontario Group Interested in Computers (LOGIC, P. O. Box 
696 station B, Willowdale, Ontario, Canada M2K 2P9) was 
entirely devoted to assembly language. Bob Stitt, also one of 
our readers, authored an article called "A New Utility for 
Applesoft". 


Bob's new utility provided a way to execute monitor commands 
from inside a running Applesoft program. He implemented the 
S.H.Lam method in machine language as an ampersand routine. 


A long long time ago someone named S. H. Lam showed the world a 
neat way to execute monitor commands from Applesoft. His 
method was published by Call APPLE back about 1978, I think. 
Lam POKEd the characters of a string containing a monitor 
command into the monitor's input buffer at $200. He included 

" N D9C6G" at the end of each command string, to return control 
to Applesoft. Then POKE 72,0:CALL-144 executes the command. 


100 C$="300:A9 3A 20 CO DE 60 N D9C6G" 

110 FOR I=1 TO LEN(CS) 

120 POKE 511+I, ASC ( MIDS (CS,I,1)) + 128 
130 NEXT 

140 POKE 72,0 : CALL-144 


Bob Stitt's utility replaces lines 110-140 above with a simple 
ampersand statement: 


110 & cS 


After reading the article, I decided to try writing my own. I 
came up with a different technique; it is probably no better, 
but it is bigger. Mine works like a similar routine coded by 
Steve Wozniak inside the mini-assembler in the Integer BASIC 
ROMs. The only advantage I find is that there is no need to 
append * N D9C6G* to each command string. As a result, you can 
execute "3D0G" (if you like) and stop execution of your 
Applesoft program. 


Lines 1220-1280 set up the ampersand vector. You can BLOAD the 
program and CALL 768 to run these lines, or simply BRUN it. 


Line 1310 clears the monitor MODE, so that it realizes it is at 
the beginning of a command. 


Lines 1320 and 1330 set up the string which follows the 
ampersand. The length will be in the A-register, and the 
address of the first character in INDEX ($5E,$5F). Lines 
1340-1420 copy the string data into the monitor's buffer at 
$200. The characters are moved in backwards order, after first 
storing a carriage return at the end. So far the code is very 
similar to that of Bob Stitt. 


Lines 1440-1590 are very similar to code found in the 


mini-assembler (at S$F538-SF559 in the Integer BASIC ROMs). 
MON.GETNUM parses one hexadecimal number, if present, and then 
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returns with a modified form of the first non-hex character in 
the A-register. Lines 1480-1520 search the monitor's command 
table for a matching character. If none is found, you will 
hear a bell. If found, the carriage return command is a 
special case. Lines 1540-1590 handle the carriage return 
command, and lines 1440-1450 handle all the others. 


When the command has been fully parsed and executed, control 
will return to your Applesoft program. That is, unless your 
command had the effect of aborting Applesoft. Here is a sample 
program: 


10 PRINT CHRS$(4)"BLOAD B.MONITOR" : CALL 768 
20 INPUT CS 

30 & cS 

40 PRINT : GOTO 20 


Note that to type in a command which contains a ":" you will 
have to type a leading quotation mark. Otherwise Applesoft 
will issue its "EXTRA IGNORED" message and truncate your input 
at the colon. 


Inside your Applesoft program you can build the command string 
using any sort of string functions and concatenation you wish. 


Se SERS ESE PE ST SES EES 
NEW from Laumer Research 
The S-C Macro Assembler Screen Editor. 


Powerful Screen Editor for assembler files, co-resident with 
the S-C Macro Assembler allowing screen editing when you want 
it and S-C Macro Assembler editing too. Loads in the unused 
4K bank of memory in a 16K Language Card. 


Includes SYSGEN program for configuring standard 40 column 
Apple, 80 column VIDEX, or 80 column STB80 video drivers. 
Ajustable tabs, margins, horizontal and vertical scrolling, 
lines to 248 columns, and much more... 


SOURCE code included. (Lets you learn about screen editors 
and configure for other brands of 80 column boards) 


Based on a popular TI 990 editor for software developers. 
NOTE: this is not a word processor editor. Organized just for 
computer languages. If you work with assembly programs of 100 
lines or more, then a Screen Editor is a MUST! 


Requires 64K APPLE II with Language card and S-C Macro 
Assembler Language Card Version 1.0. 


Price $49.00 from LAUMER RESEARCH 
1832 SCHOOL RD. 
CARROLLTON, TX 75006 


Master Card and Visa accepted (send Name, card number and exp. 
date). Foreign orders add $3.00 shipping (US funds only). 
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sate SoAVE S.AMPER MONITOR 
Woa0 ® &MONITOR 
03F5- 1080 AMPERSAND. Men ab a $3F5 
DD7B- 1050 AS.FRMEVL .EQ $DD7B 
E5FD- - Ale AS.FRESTR .EQ $E5FD 
0031- 1080 MON. MODE -EQ 1 
0200- 1120 BUFFER -EQ $200 
FFBE- 48D MON.TOSUB .EQ $FFBE 
FFAT=- 1140 MON.GETNUM .EQ $FFAT7 
FFCC- 1150 MON.CHRTBL .EQ $FFCC 
FF 3A- 1160 MON. BELL -EQ $FF3A 
FEOO- 1170 MON 1 ~EQ $FE0O 
FFC7- 1100 MON ZMODE .EQ $FFC7 
1200 -OR $300 
1210 Semnnnne nnn nn nme mw mw eee en eene 
0300- AQ AC 1220 SETUP LDA #$4C ~ IMP OPCODE 
0302- 8D F5 03 1230 STA AMPERSAND. VECTOR 
0305—- AQ 10 1240 LDA #FAKE.MONITOR 
ett 8D F6 03 1250 STA AMPERSAND. VECTOR+1 
O30A- AQ 03 1260 LDA /FAKE.MONITOR 
030C- 8D F7 03 1270 STA AMPERSAND. VECTOR+2 
O30F- 60 1280 RTS 
1290: Sisessenccanccaoeceucececs easacin 
1300 FAKE.MONITOR 
0310=- 20 C7 FF 1310 JSR MON .ZMODE 
0313=- 20 7B DD 1320 JSk AS. FRMEVL 
0316=- 20 FD E5 13h6 JSR AS.FRESTR 
0319- A8 1340 TAY 
031A=- AQ 8D 1350 LDA #$8D <RETURN > 
031C=- 99 00 02 1360 .1 STA BUFFER,Y 
O31F=- 9 re * TYA 
0320- FO OC 1380 BEQ FMN2 END OF STRING 
0322- 88 Ao DEY 
0323- Bi 5E 1400 LDA (INDEX) ,Y 
0325- 09 80 1410 ORA #$80 
0327- DO F3 vie ‘ BNE . 20 ALWAYS 
0329=- 20 BE FF 1480 FMN 1 JSR MON. TOSUB 
032C- A¥ 34 1450 LDY MON.YSAV 
032E- 20 i FF 1460 FMN2 JSR MON.GETNUM 
O3337 84 WS STY MON.YSAV 
0333- AO 16 1480 LDY #22 
$338 D9 CC FF Lr 1 CMP MON.CHRTBL,Y 
0333- F 1500 BEQ .2 
033A- 88 1510 DEY 
033B- 10 F8 1520 BPL .1 
033D=- 4C 3A FF 1230 JMP MON.BELL 
0340- CO 15 1540 .2 CPY #21 
0342= DO E5 1550 BNE FMN1 
O344- A5 31 1560 LDA MON .MODE 
0346= AO 00 12)° LDY #0 
0348- C6 1580 DEC MON. YSAV 
O34A=- 4C 00 FE 1590 JMP MON .BL1 
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